Bangkok Nights/Bangkok Nights.iso/mac/PC/PCPZ.DXR/00038_Field_blank descrip.txt

Text File | 1995-04-11 | 2KB | 71 lines

  on startMovie
  set the centerstage to FALSE

  clearGlobals
  set cd = the colordepth

  set cd = the colordepth
  if cd > 16 then
    alert "This application requires 16-bit color or less."
    quit
  end if

  set its_a_mac = the machineType < 255

  if the quickTimePresent <>1 then
    if its_a_mac then

      alert "QuickTime system extension required. ¬
Place the QuickTime system extension in your system folder and restart your Macintosh."
    else
      alert "QuickTime DLL's required. ¬
Execute this application from the CD-ROM."
    end if
    quit
  end if

  set the sound of cast A24 to 0
  set the sound of cast A25 to 0
  set the sound of cast A27 to 0

  when mousedown then go to frame "startmovie"
end startMovie

-- do an offscreen load of a quicktime movie
on osLoad msprite, x, y
  global qtframe, cursprite

  set cursprite = msprite
  set cn = the castnum of sprite cursprite
  set the sound of cast cn to 0
  set the MOVIERATE of sprite cursprite = 0
  set the MOVIETIME of sprite cursprite = 1
  puppetSprite cursprite, TRUE
  set the locH of sprite cursprite to x
  set the locV of sprite cursprite to y
  set the sound of cast cn to 1
  updatestage
  set the MOVIETIME of sprite cursprite = 1
  set the MOVIERATE of sprite cursprite = 1
  set qtframe = -1
end osLoad



-- Is the movie still running?
on movieRunning
  global qtframe, cursprite

  if the MOVIETIME of sprite cursprite <> qtframe then
    set qtframe = the MOVIETIME of sprite cursprite
    return TRUE
  else
    puppetSprite cursprite, FALSE -- release the movie
    cursor -1   -- get the arrow back
    return FALSE
  end if
end movieRunning